COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "WORDY"
C00006 ENDMK
C⊗;
BEGIN "WORDY"
PRELOAD_WITH 9,33,17,25,5,21,12,27,8,35,20,11,37,29,6,39,
	22,13,40,31,7,24,19,15,23,10;
INTEGER ARRAY AL[1:26];
PRELOAD_WITH
	"GIG","GOT","GUT","GYP","ILK","IMP",
	"INN","IRE","NAP","NEE","NIP","NOT",
	"SEA","SIR","SKI","SOB","TAN","THY",
	"TIC","TOG","ZED","ZEN","ZIP","ZOO",
	"CART","CELL","CHON","CLEF","HARE","HERS",
	"HOBO","HULA","IKON","INKY","IRIS","ITEM",
	"LACY","LAVA","LEAL","LESS","LICE","LIRA",
	"LOCH","LUNG","SAKI","SEED","SHIN","SKID",
	"EASEL","ERASE","ETHYL","EXALT","ICHOR","IDEAL",
	"IGLOO","IMPEL","INDUE","IRAQI","ISSUE","ITCHY",
	"NACRE","NAVAL","NEIGH","NEXUS","NIFTY","NITRE",
	"NOISE","NYLON","RABBI","RECAP","RIGHT","ROAST",
	"ABACUS","ACETIC","ADSORB","AFLOAT","NAPKIN","NEBULA",
	"NIMROD","NORMAL","SADDLE","SCARAB","SENATE","SHABBY",
	"TALMUD","TEREDO","THATCH","TISSUE","ULLAGE","UNBORN",
	"UPWIND","UTOPIA","YANKEE","YCELPT","YENANA","YOMBIE";
STRING ARRAY WD[3:6,1:24];
INTEGER ARRAY VL[3:6,1:24];
PRELOAD_WITH 4,6,3,3,5,5,4,6;
INTEGER ARRAY LN[1:8];
STRING S;
INTEGER I,J,K;

FOR I←3 STEP 1 UNTIL 6 DO
   BEGIN
   FOR J←1 STEP 1 UNTIL 24 DO
      BEGIN
      VL[I,J]←0;
      FOR K←1 STEP 1 UNTIL I DO
         VL[I,J]←VL[I,J]+AL[WD[I,J][K TO K]-'100];
      END;
   FOR J←2 STEP 1 UNTIL 24 DO FOR K←1 STEP 1 UNTIL J-1 DO
      IF VL[I,K]<VL[I,J] THEN
         BEGIN
         VL[I,K]↔VL[I,J];
         WD[I,K]↔WD[I,J];
         END;
   END;
SETFORMAT(4,0);
FOR J←1 STEP 1 UNTIL 24 DO
   BEGIN
   FOR I←3 STEP 1 UNTIL 6 DO
      OUTSTR(WD[I,J]&CVS(VL[I,J])&"   ");
   OUTSTR('15&'12);
   END;

FOR S←"HUNGRILY","INSTINCT","LAZINESS" DO
   BEGIN
   INTEGER T;
   OUTSTR('15&'12&"KEY: "&S&'15&'12);
   T←0;
   OUTSTR('12);
   FOR I←1 STEP 1 UNTIL 8 DO
      BEGIN
      J←1;
      WHILE WD[LN[I],J][1 TO 1]≠S[I TO I] DO J←J+1;
      OUTSTR(WD[LN[I],J]&"	"&CVS(VL[LN[I],J])&'15&'12);
      T←T+VL[LN[I],J];
      END;
   OUTSTR("		"&CVS(T)&'15&'12&'12);
   END;
END;